home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 45 / 64er_Magazin_Sonderheft_45_19xx_Markt__Technik_de_Side_A.d64 / listing 10 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  441b  |  11 lines
  1. 10 printchr$(147)       :rem bildschirm loeschen
  2. 20 poke 2040,13         :rem daten sprite 0 aus block 13
  3. 30 for i=0 to 62:poke 832+i,129:next:rem spritedaten eintragen
  4. 40 v=53248              :rem startadresse des videochip
  5. 50 poke v+21,1          :rem sprite 0 einschalten
  6. 60 poke v+39,1          :rem sprite 0 farbe geben
  7. 70 poke v+1,100         :rem sprite 0 y-position
  8. 80 for j=0 to 347       :rem x-positionen sprite 0
  9. 90 hx=int(j/256):lx=j-256*hx
  10. 100 poke v,lx:poke v+16,hx:next
  11.